Voorbeeld met het besturingselement TextBox en de eigenschappen AutoSize en Text

In het volgende voorbeeld worden de effecten getoond van de eigenschap AutoSize op een TextBox voor ΘΘn regel en een TextBox voor meerdere regels. De gebruiker kan tekst typen in de TextBox voor ΘΘn of voor meerdere regels en kan vervolgens AutoSize in- of uitschakelen, onafhankelijk van de inhoud van de TextBox. In deze voorbeeldcode wordt ook gebruikgemaakt van de eigenschap Text.

Als u dit voorbeeld wilt gebruiken, kopieert u deze voorbeeldcode naar de declaratiesectie van een formulier. Zorg ervoor dat het formulier de volgende besturingselementen bevat:

• Twee besturingselementen TextBox met de namen TextBox1 en TextBox2.
  
  
• Een ToggleButton met de naam ToggleButton1.

Private Sub UserForm_Initialize()
    TextBox1.Text = "Single-line TextBox. " _
        & "Type your text here."
    
    TextBox2.MultiLine = True
    TextBox2.Text = "Multi-line TextBox. Type " _
        & "your text here. Use CTRL+ENTER to start " _
        & "a new line."
    
    ToggleButton1.Value = True
    ToggleButton1.Caption = "AutoSize On"
    TextBox1.AutoSize = True
    TextBox2.AutoSize = True
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "AutoSize On"
        TextBox1.AutoSize = True
        TextBox2.AutoSize = True
    Else
        ToggleButton1.Caption = "AutoSize Off"
        TextBox1.AutoSize = False
        TextBox2.AutoSize = False
    End If
End Sub